Public Class CustomException
  Inherits Exception

  Sub New(ByVal Message As String)
    MyBase.New(Message)
  End Sub
End Class

Public Class DivideFunction

  Public Function Divide(ByVal Numerator As Double, _
                         ByVal Denominator As Double) As Double

    If ((Numerator > 1000) Or (Denominator > 1000)) Then
      Throw New CustomException("Licznik i mianownik musz mie " +
                          "warto mniejsz od 1000 lub rwn 1000.")
    End If

    Divide = Numerator / Denominator

  End Function

End Class
